home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c128 / utilities / serendipity.sfx / 128 menu (.txt) next >
Commodore BASIC  |  1996-05-19  |  313b  |  10 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 iffre(0)<>fre(1)then(NULL)"serendipity":sys5000
  3. 15 print"[147]stargate"
  4. 16 poke53280,0:poke53281,0:poke646,0
  5. 17 forx=8to9:open15,x,15,"u0>m0":close15:next
  6. 20 print"load"chr$(34)"star loader"chr$(34)","dv
  7. 30 print"run":poke198,2:poke631,13:poke632,13:end
  8. 59999 end
  9. 60000 open15,8,15,"s0:stargate":close15:save"stargate",8
  10.